﻿Public Module extentions_date
    <System.Runtime.CompilerServices.Extension()> _
    Public Function toFrenchShort(ByVal laDate As Date) As String
        Return laDate.ToString("dd-MM-yyyy")
    End Function

    <System.Runtime.CompilerServices.Extension()> _
    Public Function toHoroDated(ByVal laDate As Date) As String
        Return laDate.ToString("yyyyMMdd")
    End Function

    <System.Runtime.CompilerServices.Extension()> _
    Public Function toFrench(ByVal laDate As Date) As String
        Return laDate.ToString("dd MMMM yyyy")
    End Function

    <System.Runtime.CompilerServices.Extension()> _
    Public Function toFrenchComplete(ByVal laDate As Date) As String
        Return laDate.ToString("dddd, dd MMMM yyyy HH:mm")
    End Function
End Module